=========================================================================== BBS: The Abacus * HST/DS * Potterville MI Date: 03-22-93 (21:31) Number: 140 From: EARL MONTGOMERY Refer#: NONE To: ALL Recvd: NO Subj: Old English Script Conf: (35) Quick Basi --------------------------------------------------------------------------- REM I found these old draw statements while cleaning out my REM old CoCo2 area. Yes I still have a CoCo2 64K with both REM tape and disk drives. I wish I could take credit for REM designing them but I can't. I don't know who did. REM Anyway they are English Script characters. I think REM they are quite nice! Run the program and see what REM you think. DIM a$(122) a$(32) = "BR8" a$(33) = "BR2G2RED8BD2D2HR2HBU2U3LU3R2D3U5FBU2BR2" a$(34) = "BRBUGDRND2RULBR3DRND2RULUBR3" a$(35) = "BR7G2D6LDU6L2GR3D3L3GR3ND2R4UNL2D3EU5NL3UL2NUR3UD" a$(35) = a$(35) + "5R2EL3U3R3EL3U2EBR5" a$(36) = "BR5DND15G4D4RNU4E3R3D6LNU6DLDL3HL2NDE2GR2DR2U10RF" a$(36) = a$(36) + "URUNL3EBUBR3" a$(37) = "BR4LG3DED2ED2EDE3LEL2EL2EBR6G2RDLD2HD3HD3HD3HD2UB" a$(37) = a$(37) + "R6REL3EL2ELE3DED2ED3EUBU7BR2" a$(38) = "BR6RF2NG3L2UL2G2RGDEDRND3G2NR3G3RGDERGDERGD2EURE3" a$(38) = a$(38) + "H2R2D2F5REUGLNH4UH4E2R2D2RENL5BU8BR3" a$(39) = "BRD4UHR2UL2BUBR5" a$(40) = "BR6G4REG3REG3R2UG2ND5RD7RU4D5RU3FDBU16BR3" a$(41) = "BD17E4LGE3LGE3LGUE2DHENU3LNU5HNU5UHU3GDBU2BR7" a$(42) = "BR3D3ND3NL3NR3NG2NH2NF2E2BUBR3" a$(43) = "BR5BD4D4ND4NL4LND5NU3DL4R8UL3R4BU8BR3" a$(44) = "BRBD13D3GE2UL2RBU14BR5" a$(45) = "BD9NR6ER6BU8BR3" a$(46) = "BD15R2GU2BU14BR5" a$(47) = "BD16E2LELE2DHE2DHE2DHE2DHE2DHE2BR3" a$(48) = "BR4G3D8UHU4E4NR2DNR3FNR3FR2GR2D4LU4D6G3UNE3L2H2ED" a$(48) = a$(48) + "RDRBU12BR8" a$(49) = "BD2E2ND13GR2UD13H2R4GE2BU11BR3" a$(50) = "BD4E4L2D3HUR2ER2DRND5FD3NG3LNG7LG5D3GUENR6FNR4FR2" a$(50) = a$(50) + "E2HREBU10BR3" a$(51) = "BR3G3NF2RE2RNG3DRF2DHD2HD4H2ED2R2D4ENU2G4H3LE2D2E" a$(51) = a$(51) + "D2ED2EBU13BR6" a$(52) = "BR6D14FU14LG6DR8FL8R6D3FDEBU13BR3" a$(53) = "BR9G3L4U2R5GL4D6E3RG2RERGR2FND3L3FRD3G3LHNR3HNR5H" a$(53) = a$(53) + "LR4H2GRBU10BR10" a$(54) = "BR5F2RGH2LF2DH2LG2D9HNU6UE5D2EUD3EUND5FD3G5U3LU3B" a$(54) = a$(54) + "U11BR9" a$(55) = "BD3E2R7GNL7G2RG2RG2ERG3ERG2ERG2D2FU3ED4E2LBU13BR6" a$(56) = "BDBR6L3G3R2DL2FRED3HR3HD2R3HD3HR3ND3GD3G2NH4L2UR2" a$(56) = a$(56) + "NH4L3ULULUE8L2DEUL2UBR6" a$(57) = "BUBR4G4D3FNU4EUD3RU2FE4ND5GD6G2NL5G2HRU2L2EBU7BR4" a$(57) = a$(57) + "R2UH2LF2LNH2LHU2BR7" a$(58) = "BD7R2GU2BD6D2HR2BU13BR4" a$(59) = "BD7R2HD2BD4D3GE2UL2BU13BR6" a$(61) = "BD6R6EL6BD3R6GNL6BU9BR5" a$(63) = "BR3G3ER4HLD2R3DL2FRG4DBD2D2HR2BU13BR6" a$(65) = "BD6U3NE2RE3NR3DR4G3L2DEUR3EG2DGDG2NH3NR7DNR7G2NR3" a$(65) = a$(65) + "DNR4DFBR3HR2E3D3FNE2U14GND9E2BR3" a$(66) = "BD3UEDRUR3EG3D4L2GDER2D5LG2NDE2REU9FED8EU8EDER3GR" a$(66) = a$(66) + "2D2HD2G2HUND9D2R3ND5FD4LG2L5GE3R3DL3BU13BR8" a$(67) = "BDBR4G3RG2ND4RD6FNU4RNU2ED2NR4UR6NE2NUL3U12G3D6EU" a$(67) = a$(67) + "6ER5GLU2LUBR6" a$(68) = "BDBR2NR7FR8GR2GRD2NL2D3NL2D3GNL6GL6GE3U10G3D7G2E3" ' End of Part 1 of 3 parts. --- Maximus 2.01wb * Origin: Rabbit and Snake's BBS - Richardson, Texas (1:124/6108) SEEN-BY: 1/211 11/2 4 13/13 101/1 108/89 109/25 110/69 114/5 123/19 124/1 SEEN-BY: 153/752 154/40 77 157/2 159/100 125 430 950 203/23 209/209 280/1 SEEN-BY: 390/1 396/1 15 397/2 2230/100 3603/20